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MODULE checksum_image ( 

IDENT='V04-000', 

MAIN=checksum$main 

pr etLe ‘Checksum the contents of a file’ 


BEGIN 
LR RARER AREER ERE REET ETE TE RARER AREER ERR 


'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY HER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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BILITY FOR THE USE OR _ RELIABILITY OF ITS 
IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY: Checksum VAX/VMS image file 


' ABSTRACT: 
4 Computes the checksum of a file or an image. The 

: ualifiers on command are /OUTPUT, /FILE and /IMAGE. 
: he /FILE and /IMAGE are conflicting qualifiers. If 
! epec ity /IMAGE, then the parts of the image header 

: that can change (Date/Time, etc) are not checksummed. 
The parameter is the input file(s) to checksum. 
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MODIFIED BY: 
V03-002 LJAO111 Laurie J. Anderson 16-Feb-1984 
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CHECK IMAGE Checksum the contents of a file 
vous000 = 


v03-001 


-Sep-1984 AX-11 Bliss-32 V4.0-74 
ifese Ben 198e 88:25:79 LOTT es °SReScnecKsuy.o$5s1 
Ehenge the image checksum to use the new EXEC image 

eader secede routines. Change the parpneters to 
t fast IND FILE to use the new Pe lated ile parsing 


argumentS. Also, add relevant comments so the 
next person can figure out this mess. 


BLSO180 Benn Schreiber 13-Aug-1982 
Support record by record checksum 
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; endi, 


; Macro to generate a pointer to an ascic string 


dD 3 
CHECKSUM_IMAGE Checksum the contents of a file 16-Sep-1984 02:17:31 AX-11 Bliss-32 V4.0-7 
vosso0o" 1465S aah 96: 5:19 Otius2°sre CHECKSUM.B 
mes SYSSLIBRARY:L1B.L32 '§ definiti 
? :LIB.L32'; 'Syst r t 
$8 REQUIRE ystem macro definitions 
x *SHRLIBS: IMGMSGDEF .R32'; !Image decode routine's messge Literals 
! MACRO 
Macro to initialize a dynamic descriptor 
01 Sinit_ddesc(d) = ! Init dynamic string descriptor 
01 beg n 
4 d scv_ length = 0; 
1 didsc pase esey = dsc$k_class_d; 
1 didsc$b_dtype] = ds¢$k_dtype_ti 
: didsc$a_pointer] = 0; 
1 
1 
1 
1 
1 


cstring (string) = UPLIT(ZASCIC string)%, 
| Macro to fao and output a string 


write (string) = 
cksm_output (fac_buffer tesce tna cetr ion 
ZIF ZLENGTH GTR T XTHEN ,ZREMAINING &FI))2; 


Message codes from shared message definitions 


SSHR_MSGDEF (cksm, 3 ,LOCAL, 
(conf ual, severe), 


(openin, error), 


Facility code = 3 (CLI) 
Conflicting qualifiers 
error opening ‘'x’’ as input 


' 
i 
i 
copenoys « severe) ! error opening x" as output 
(closein, warning) ' error closing ‘‘x’’ as input 
(closeout, warning), ' error closing ‘‘x"’ as output 
(readerr, error) ' error reading ‘‘x'' 
(writeerr, errors, ! error writing ‘'x" 
(parsefail, warning)); ! error parsing ‘‘x"’ 
FORWARD ROUTINE 
read_header, ‘Read and process image header 
checksum_section, ‘Checksum an image ses tion 
cksm_foreign, 'Checksum non-image file 
cksm_header, ‘Checksum image header data 
read _ blocks, 'Read next block of header 
fao_Buffer, ‘Call fao and return descriptor 
cksm_output, ‘Output Line to output file 
get filename; 'Get string descriptor for file 


EXTERNAL ROUTINE 


cli$get_value : ADDRESSING MODE(GENERAL),  ‘!Get qualifier yolue 
cli$preSent : ADDRESSING MODE (GENERAL) ‘Test if qualifier present 
img$decode_ihd : ADDRESSING MODE (GENERAL), ‘Decode image Regder 
imgsget next. sd_: ADDRESSIRG DOPE OENEEAL) 'Get all ISD's from image 
LibSget_vm :~ADDRESSING_MODE (GENERAL), 'Allocate virtual memory 


3 
CHECKSUM_IMAGE Checksum the contents of a file Ib-5e -1984 02:17: AX=11 Bliss-32 V4.0-74 Pa 
VOes000 1 730071382 93330575 that 2.SRCICHECKSUM.B32;1 ™ 
: 1 $ 10 1 LibSfree_vm : ADDRESSING re Nada Hy 'Free virtual memory 
gp 4 1} oe Lib$find file : ADDRESSING MODE (GENERAL) ‘Search for wild card files 
; 128 \§ 1 Lib$set_Symbol : ADDRESSING MODE(GENERALS, ‘Define local DCL symbol 
> 129 8 oe str$copy_dx : ADDRESSING MODE (GENERAL), ‘Copy a string 
; ’ ? 8 13 } str$upcase : ADDRESSING_MODE (GENERAL); ‘Uppercase a string 
yw ; 8 18 1 EXTERNAL LITERAL 
.-¥ a cksm$_allischk, !Checksum of all image sections 
; 134 0218 1 cksm$_badimghdr, beg image header format 
; 135 0219 1 cksm$_file 'Print the filename 
: 136 0220 1 cksm$~ihdchksum, ilmage header checksum 
3 «Nor 8 ee cpens.. 100g (chk :Checksum of one image section 
; i 8 0 g cksm$-nonimgchk; iNon=image file checksum 
; 140 0224 1 OWN 
: «(141 0225 1 chan, ‘Channel to input file if image 
3 106 0 § 1 find_context : REF $B8BLOCK, ‘Context for Lib$find_file 
; «14 0 § 1 irab : SRAB_ . 'RAB for input 
> 144 0228 1 orab : $RAB_DECL ! and output 
3: «6145 ia 1 ixabfhe : SRABFHC DECL. !XAB to get file header characteristics to get file size 
; 146 0230 1 outfiledesc : $BBCOCK(dsc$c_s_bin], ‘Output file descriptor 
; 147 ttt 1 find_result : SBBLOCKCdsc$c_s_bin], ‘Current input file 
: «148 02 ¢ 1 headerbuffer : REF 3701 gn ‘Pointer to user record buffer 
: 149 0233 1 databuffer : REF VECTORC, LONG), iand data buffer 
3 130 8 $e : exitstatus : S$BBLOCK(4); 'Most severe error status 
; 136 0236 1 LITERAL 
; 3 0237 1 ihdSk_activoff = ihd$k_ length, 'Offset to activation area 
> 154 0238 1 ihd$k_symdbgoff = ihd$k_activoff + iha$Sk_Llength, 
3 135 0239 1 ihdSk_imgidoff = ihdSk_symdbgoff + ihs$k_length, 
; 156 Bsee 1 ihd$k_patchoff = ihd$k_imgidoff + ihi$k_Tength, 
3; 157 0241 1 ihd$k_maxlength = ihd$K_patchoff, 
: 158 ok: 1 maxbytes = 10*512, ‘Maximum record to read 
; 159 0243 1 false = 0, ‘Logical 0 
; 160 oSee 1 true = 1; ! and 1 
; 161 0245 1 
; 166 0246 1 AL 
3; 16 0247 1 cksm$gl_ihdcksm, ‘Image header checksum 
: «164 85¢5 1 cksm$gl_chksum, 'Isect checksum 
; 165 49 1 cksm$gl_acucksm, ‘Accumulated checksum 
; «166 0250 1 cksm$gl_maxbyt; !Maximum record to read 


8 eee 
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CHECKSUM_ IMAGE 1984 02:17:31 AX=11 Blisg-32 V4.0-74 Page 
vOusOOe 71984 HEE Loti 2°SReicHECKSUM.B3551 . 
: L_ "all 

NE allocate_ubf (xab,rab) : NOVALUE = 


} ocate_ubf' 
Allocate a buffer for records that cross block boundaries 
MAP 


xab : REF S$BBLOCK, 
rab : REF S$BBLOCK; 


LOCAL 
status 
blocksize;: 


ubf_size, 'Size of last UBF 
ubf_addr; 'Address of last UBF 


NOUS WN OC OONOULS WN —OVOO 


Calculate the max record size based on the longest record in the file. 
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' 
i 
i If there is a user buffer allocated and it is not bi enough, deallocate 
it and get a new one. If it's bigger than needed, then that's fine 
1 0 blocksize = MAXU(MAXU(. xabCxabSw_lrl],.xabCxab$w_mrz)),512); 
¢ 0275 IF .blocksize GIRU .ubf_size 
0 6 THEN BEGIN 
4 027 IF .ubf size NEQ 0 
5 0278 THEN LibSfree_vm(ubf_size,ubf_addr); 
0279 ubf_ size = .blocksize; 
0280 IF NOT (status = Lib$get_vm(ubf_size,ubf_addr)) 
0281 THEN SIGNAL_STOP(. status); 
0 Ht ND; 
° rf Set up rab with size and address of the buffer 
0 86 rabCrab$w_usz] = .blocksize; 
8 Hh rablrab$l_ubf] = .ubf_addr; 
0289 RETURN; 
07 0290 END; 


- TITLE CHEK Sun IMAGE Checksum the contents of a file 
IDENT \v04-0004 


-PSECT SOWNS,NOEXE,2 


08 CHAN:  ,BLKB 
0 FIND_CONTEXT: 


-BLKB 

IRAB: -BLKB 

of ORAB: .BLKB 
IXABFHC: .BLKB 

C CUTFILEE SE 


-BLK 
000C4 FIND_RESULT: 
-BLKB 


#o000 
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wie 
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allocate_ub 


0200 


ovm Gow ww 
Wr Fe —-OW 


000000006 09 
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000000006 68 


000c 


C 


iSeseo-t9pe 99:17: 


ooocc HEADERBUF FER: 
000D0 DATABUFFER: 
BLK 
00004 EXITSTATUS: 
00008 UBF _SIZE: 


-BLKB 
QOODC UBF _ADDR: 
-BLKB 


.PSECT 
00000 CKSMSGL.IHDCKSM: 
00004 CKSMSGL_éHKSUM: 
00008 CKSMSGL_ACUCKSM: 

BLKB 


Q000C CKSMSGL_MAXBYT:: 
-BLKB 


.PSECT 
00000 ALLOCATE_uBF : 
WORD 


VL 
0008 MOVZWL 
CMPW 


oO 
2 IO 
—*"ODOWOmMmovw™ 
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Fe 
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Cc 
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tad 
o oO 
PEE 


Ww 
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- fF PF HS 


SGLOBALS ,NOEXE ,2 


LISGET_VALUE, CLISPRESENT 
MGSDECODE_IHO IMGSGET NEXT_ISD 


SFREE V 
{LE, LIBSSET SYMBOL 
$coPy Y~DX &tk RSU 
$_ ALC! Stu. CKSHS rBADIMGHOR 
eens: “FILE, CKSMS HK SUM 
CKSMS~ISECTCHK, g ny “NONIMGCHK 


SCODES ,NOWRT ,2 


eurrKRon f§ BAe RS 


312 RI 

BLOCKSIZE 
Buoceei ie UBF _SIZE 
yer _SIJE 


- ADDR 
LIBSFREE VM 


Bt bck KSIZE. UBF _SIZE 


LIBSGET_VM 
a 1Us- 4 


0252 
0274 


CHECKS IMAGE Checksum the contents of a file 
allocate_ubf 


000000006 i 
ft 


Routine Base: S$ CODES + 0000 


04 


HE 


; Routine Size: 102 bytes, 


PUSH STA 
CALL #1 
MOVL 

MOVW BLO 
MOVL UBF 
RET 


rh 
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UTIL52.SRC 
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a SSTOP 


ensizE. 53 
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CH Ck IMAGE Checksum the epnpente of a file 1b-se Sep-1984 AX-11 Bliss-32 V4.0 
Vv define DCL symbol ety 7 9: 3g 3 UTIL32.SRC che cKSino8 31 


91 1 Xsbttl ‘define DCL symbol’ 
1R hf NE define_sym (value) : NOVALUE = 
' 


| Define the symbol CHECKSUMSCHECKSUM with the given value 


R 
i $4 38 

3 1 94 

;s 32 

: 215 39 LOCAL 

; 1 38 status; 

: 18 39 status = LibSset_symbol ($descriptor ("CHECKS YMSCHECKSUM' ) 

3; ¢! 030 fao_buffer(cstr age’ 'UL'),.values); 
3 0 8 If NOT .sta 

; 1 8 THEN STGNAL(. status); 

: : 0305 RETURN; 

3 4 0306 END; 


-PSECT S$PLITS,NOWRT,NOEXE,2 


53 48 43 45 48 43 246 4D 55 53 4B 43 45 48 43 90000 P.AAB: .ASCII \CHECKSUMSCHECKSUM\ 
90011 .BLKB 3 
00000011 00014 P.AAA: <LONG 17 
00000000" 00018 “ADDRESS P.AAB 
4C 55 21 O83 OOOIC P.AAC: ASCII <3>\!UL\ 
-PSECT S$CODES$,NOWRT,2 
0000 00000 DEF INE_SYM: 
«WORD Save nothing 
04 AC dD 0000 PUSHL VALUE 
0000' CF 9F 0000 PUSHAB P.AAC 
0000v CF 02 FB 99009 CALLS #2, FAO_BUFFER 
DD 900E PUSHL R 
0000' CF 9F 0001 PUSHAB P.AAA 
000000006 00 : FB 0014 CALLS #2 L 1BSSET_SYMBOL 
09 £8 0001B BLBS = STATUS, 1 
0 DD 0001 PUSHL STATUS 
000000006 00 01 FB 902 CALLS #1, LIBSSIGNAL 
04 00027 1$ RET 


; Routine Size: 40 bytes, Routine Base: SCODE$ + 0066 


Se Se Se Se Se Se Se Se Be Se oe 


3 
CHECKSUM_IMAGE (Checksum the contents of a file 18-se -1984 02:17: AX-11 Bliss-32 V4.0-74 
voes Process CHECKSUM/F ILE 12-80 8=1 382 SEE Lot TLb2°sRe CHECKSUM 535.1 
; $ 7 1 &sbttl ‘Process CHECKSUM/FILE' 
: ROUTINE checksum_file : NOVALUE = 
: : : EGIN 
: 0 1 i Checksum the contents of a file. Open the file using RMS and simply read 
; 1 18 } t with SGET's and checksumming the records. Close the file. 
; : 1 LOCAL 
; 15 checksum, 
3 5 1 n_longwords, 
; 1 n_bytes, 
3 18 status; 
: $85 20 5 
; re 1 Open the input file to checksum using RMS. 
; 43 0858 § $xaBFHC INIT(xabzixabfhe); ‘Initialize XAB 
3 26 P 0324 SRAB_INTT(rab=irab, 'Initialize input rab 
5 te 8 5 ab=.find_context); 
: rs 0 5 IF NOT (status = Sopen(fab=.find_context)) Open the input file 
; 26 8 8 THEN SIGNAL(cksm$_openin, 1, 
; 248 9 find_result, status, 
; r4 83 ? .find_contextlfab$l_stv)) 
: 251 03 § ELSE IF NOT (status=$connect(rab=irab)) !Connect record stream 
3 26 33 THEN BE 
; 25 4 SIGNAL (cksm$_openin, 1, 
: 254 0335 nd result, .status, 
3 @2 83 $ -irabCrab$t_stvJ); 
: $39 03 END: 
; 258 0339 : 
; 44 Beet allocate_ubf(ixabfhc,irab); ‘Allocate the buffer to read into 
: 261 Ose 2 
; 6¢ 0 ? : Checksum the contents. 
3 264 45 2 checksum = 0; 
: 265 $05 WHILE (status = S$GET(rab=irab)) NEQ rms$_eof 
; 68 4 dO wit 
: 28 rk longbuffer = .i-abCrab$l_rbf] : VECTORC,LONG); 
; $ 0 29 IF NOT .status 
3; e71 26 THEN SIGNAL (cksm$_readerr,1,find_result 
; , 353 .Status,.irablrab$l_stv4); 
: R 22 Compute number of full longwords and dangling bytes in record 
eB. 2 n_longwords = (,ira Crab$y_rsz]/4); 
: , 3 nibytes = -irabtrab$w_rszJ AND 3; 
TS 60 i Checksum the longwords by exclusive or. Checksum the dangling 
; 30 Q 1 : bytes by simple addition 
; 2 6863 IF .n_longwords NEQ 0 


o 
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CHECK 
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WAN 


KSUM_IMAGE Checksum the contents of a file 


2c 


8F 


« 5° 
Process CHECKSUM/F ILE 1978 ine 96: 173) AX=1] Bliss=32 V4.0-74 


64 THEN ye : FROM 0 to .n_longwords 


65 D es = mahal xOR 4 + oR ij; 
98 IF "’ bytes NEG 
HE Lg 
e3 2 bytebuffer = longbufferl.n_longwords] : VECTORC,BYTEI; 
71 4 INCRU i FROM 0 TO .n_bytes - 1 
8 i 4 .. DO checksum = .cRhecksum + .bytebuffer(l.i]; 
i _ END; “ 
£8 Define a DCL string symbol with the decimal value of the checksum 
0379 define_sym(.checksum); 
80 ! 
ttt Disconnect the stream and close the input checksummed file. 
ith iF NOT ep np pd ee yn pS ae be 'Disconnect and close output file 
0384 THEN SIGNAL(cksm$_closein, 1, 
0385 nd_result, | 
O338 irablrab$t _stvJ); 
0388 IF -" (status=$CLOSE( fab=. find_context)) 
0389 THEN SIGNAL (cksm$ _closein, Te 
Bea0 find result, 
0391 find. eet ety _stv]); 
o398 RETURN; 
0394 1 END; 
SRMS_PTR= IXABFHC 
SRMS_ _PTR= I 


RAB 
.EXTRN SYSSOPEN, SYSSCONNECT 
“EXTRN SYS$GET, SYSSDISCONNECT 
“EXTRN SYSSCLOSE 


ve R2, se R4,R5,R6,R7,RB,RI 


59 000090006 00 9€ 0000 MOVAB tiaSs icin RS 
58 000° cr 3 0 MOVAB SRMS_P “ee 
00 6E sal 0 C movcS #0, tsp. #0, #44, SRMS_PTR 
0088 «8 gore BF b9 0 16 MOVW #11293, SRMS_PTR 
00 6E 9 ¢ 1p MOVCS #0, (SP), #07 #68, SRMS_PTR 
68 4401 $F 80 § MOVW #17409, $RMS_PTR 
3c C«A FC OBO A MOVL FIND CONTEXT: SRMS_PTR+60 
FC =A. OD F PUSHL FIND CO NTEXT 
000000006 90 £. é CALLS #1, SYSSOPEN 
4 0 D MOVL TATU 
1A 4 C BLBS us, 1 
50 FC AB OO F MOVL FIND CONTEXT, RO 
OC AO DD 00043 PUSHL 0) 


UTIL32.SRCJCHECKSUM.B32;1 
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CH Ck IMAGE Checksum the contents of a file 1b-5e Sep-1984 1 Ax-1 V4.0-74 
V Process CHECKSUM/FILE 1 300-1382 9: NS 3 UTIL ° tre degcie HECKSUM.B32;1 
54 DD 0004 PUSHL STATUS 
ooBc §«=s¢8 BF 28 PUSHAB FIND_RESULT 
1 DD 0004C PUSHL # 
0003109A B&F ODD 4E PUSHL #200858 
9 re CALLS #5, LIBSSIGNAL 
1 7 BRB 2$ 
DD 9 1$: PUSHL RB 
000000006 90 1 Ff CALLS #1, SYSSCONNECT 
4 0 D 6 MOVL RO, STATUS 
14 4 €£ LBS STATUS, 2$ 
0c AB DD 00068 PUSHL IRAB+12 
54 bb 9 B PUSHL STATUS 
0oBc «CBO D PUSHAB FIND_RESULT 
1 DD PUSHL #1 
0003109A FF pp 7 PUSHL #200858 
00C¢ 1 0007 BRW 12$ 
5 bb gore 28: PUSHL R 
0088 F 0007 PUSHAB IXABFHC 
FEEBsOCF FB 008 CALLS #2, ALLOCATE_UBF 
D4 0008 CLRL CHECKSUM 
8 DD 00089 3$: PUSHL 
000000006 00 gi FB 008: CALLS ae SYSSGET 
54 0 pO 0009 MOVL STATUS 
0001827A = BF 54 D1 0009 CMPL er RTOS #98938 
5p 13 0009 BEOQL 1 
55 28 «AB 09 009 MOVL IRAB+40, RS 
14 54 €8 OOOA BLBS STATUS, 4$ 
0c A8 DD OOOA PUSHL [RAB+ 2 
54 DD O00A8 PUSHL STATUS 
OoBc «C8 OOF OO0AA PUSHAB FIND _RESULT 
1 DD OOOAE PUSHL 
00031082 8F DD 000B0 PUSHL em 
9 05 FB 00086 CALLS ’ vende 
5 22 AB 3C 00089 4$: MOVZWL 4 H “ONGwORDS 
5 04 (6 90080 DIVL2 Yi N, LONG 
53 22 AB 0 99 EF 000C0 EXTZV #0. #2, TRABe Ss, N_BYTES 
¢ D5 000C6 TSTL § N_LONGWOR 
if 9008 BEQL 
51 FF Ag 9E OOOCA MOVAB <-1(R2), R 
50 04 000C CLRL I 
06 11 0000 BRB 6$ 
56 6540 CC 000D2 5$: XORL2 (RS)CIJ, CHECKSUM 
20 D6 06 INCL 
51 Di DB 6$: CMPL R1 
F DB BLEQU 
53 D5 00000 7$: TSTL = NEBYTES 
AB 1 DF BEQL 
50 654¢ DE 000E1 MOVAL (R5)CN_LONGWORDS], RO 
5 FEO 9 E5 MOVAB <-1(R3)> R5 
51 D £9 CLRL 
07 (11 EB RB $ 
7 8140 9A OOOED 8S: MOVZBL (1) +£R0}, R7 
$ 3 CO OO0F1 ADDL2 R7, CHECKSUM 
1 01 F4 9$: CMPL 
F4 18 F7 BLEGU 8$ 
BE 1 9 BRB $ 
DD OOOFB 10$ PUSHL CHECKSUM 


IMAGE Checksum the 
Process CHEC KSUM 


Routine Base: 


3; Routine Size: 


ms ents of a file 


CF 
90 
4 
14 
oc 
00B8C 
00031050 
69 
FC 
00 
54 
18 
50 FC 
oc 
00B8C 
9 00031050 


OWOOVMY SVwi10O FS OWOO VS Vt98U10 


win Co SOO fO—-Oouwnn cof orlo—oa— 


OMNVOVTOWMOWVIWVIIO "OCT BOWlW 


SOOCGCCOOCOGCOOOOOOOOCOOOCOoOoO 


jeleleleleleleleleleleololeleleleololeleloclolelo) 


So tooone nOoOnOoOOoOVIOMmonT"OnN 


FB 
04 


SCODES + O08E 


iSosen- 1964 09:17 


inal 


a ns 


SPP PWWWIIIPonon = 2 


OPS HSMM OO OVI WOVMIVION SOL MW 


—— 
wr 


rw 


AX-11 Bliss-32 V4.0-74 
UTIL32.SRCJCHECKSUM.B32;1 


#1, DEFINE SYM 
#1, SYSSDISCONNECT 
TAT 


STATUS, 11$ 
IRAB+12 


STATUS 
F IND_RESULT 


STATUS 
FIND_RESULT 


eure 
#5, LIBSSIGNAL 


nN 3 
CHECKSUM_IMAGE Checksum the contents of a file 16-Sep-1984 02:17:31 AX-11 Bliss- 4.0-74 
voscooo" signal handler 12286-1382 96:32 %) {Orie 2°sRe Cie cK SU9.04351 


Zsbttl ‘signal handler’ 


s 2Ye 95 1 

s 5 96 1 ROUTINE signal_handler (sigargs, mechargs) 

‘i 3 BEGIN _ ie 

: 319 39 i This routine is a condition handler called when ever a 

: 0 400 ! SIGNAL is done by cksm. It merely remembers the 

; 1 tb) most severe error for an exit status. 

: g 208 5 wap 

; 4 0404 sigargs : REF S$BBLOCK, 

: 5 b¢0g mechargs : REF $BBLOCK; 

; 304 209 IND 

; $8 e494 signame = sigargs Cchf$l_sig_name] : $BBLOCK; 'Name of signal 

: 386 Baie IF NOT .signame 'If its an error signal 

3 6S) 411 4 AND ((.signame Csts$v_severity] ! and severity is worse than it was 
; $25 Oelg 4 GEQU oqxitstatus Ests$v_severity)) 

; 35 04135 3 OR .exitstatus Csts$v_severity] ' or we haven't had any errors 

; $30 pele § THEN exitstatus = .signame; ! then remember it for exiting 

: 336 0416 2 RETURN ss$_resignal; jagesenee to get the error printed 
s IF 0417 1 END; 'Of signal_handler 


0004 00000 SIGNAL_HANDLER: 
-WORD Save R2 
EXITSTATUS 


52 0000' CF 9E 0000 MOVAB R2 
50 04 AC 04 C1 0000 ADDL3 #4, SIGARGS, RO 

12 60 €8 0000C BLBS R 
51 62 03 00 EF OO0OF EXTZV #0, #3, EXITSTATUS, R1 
51 60 03 00 ED 00014 CMPZV #0, #3. (RO), R1 

03 1€ 00019 BGEQU 1 

03 62 £9 0001B BLBC EXITSTATUS, 2$ 

62 60 b0 OOO1E 1$ MOVL (RO) EXITSTATUS 

50 0918 8F %3C 00021 2$ MOVZWL #2328, RO 

04 00026 RET 


; Routine Size: 39 bytes, Routine Base: S$CODE$ + 01DC 


Checksum 
main rout 


CHE CKSUM_ IMAGE 
v04-0 


AAA AIA AAAS 
ye Ry a te et ae ay ee 
WO OONAUS WN "OC OONOULWH— 
SOSOSDSOOOSOOSOOOOOOOSOOOO 

BRRRRRRR RR RRR RRR RRR RRR RPP EE 

BEEPS FW NWI ropopopopononornonon Ss - 


ooo 
nee 
Par 


vuvuVvUU 


SSPELELERRERRERERRERRRRRRERERE 


0000 Co 


wn 


MEANS OOVNAUE WIN 0 ODNAU EWN (OOD NOUS WW SC OODNOU EWN O00 


POOP AWIINIVNIIVIVIVIVIU 


vuvv 


vw 


RIPDPIPIPIPOPIPDPPIPYPIPIPININIPYNININYNINIPININININD VAPPIPIPIPYPIPIPPINPYIPIPIPIPIPIPUNINPIPIPIPIPIPOPINIPUNY 


FS oe oe oe at at et et et kt et et he ee ee 


AAA AA AAAI AION 


SRANLSSSIEARE 


e contents of a file 
of checksum 


@ 

ttl ‘main routine of checksum' 
i checksum$main = 
h 


ENABLE signal_handler; 
exitstatus = ss$_normal; 


cksm$gl meng fH = maxbytes; 
Sinit_ddesc(indesc); 

CHSMOVE (dsc$c_s_bln, indesc,outfiledesc); 
CHSMOVE (dsc$c_s_bln,indesc,find_result); 


cli$get_value($descriptor('INPUT'),indes 


) 
cli$get_value($descriptor(*OUTPUT'S ,out 


f 
file sum = $; Sopresees COteers teter tt iht. 


status = Sh Taprenens Cosescr "eters Unee 
IF NOT (.file_sum OR .status 
THEN file sum = true; 
IF .file sum 
AND .status 
THEN SIGNAL_STOP(cksm$_confqual); 


Create the output file 


$FAB_INIT(fab=ofab, 
nam=onam 
ins=.outtiledescfdsc$u_length] 
fna=.outfiledesc dsc$a_pointerd, 
rat=(cr) 
fop=(ofp} 
fac=(put)5; 


(0,nam$c_maxrss,orss); 

(O,nam$c_maxrss,oess); 

1T(nam=onam, 
rss=nam$c_maxrss, 
rsa=orss, 
ess=nam$c_maxrss, 
esa=oess); 


S$RAB_INIT(rab=orab, 
fab=ofab); 


status = S$CREATE(fab=ofab); 


LL 
LL 
IN 


9B 18:25:19 


is is the main program. It gathe*s a 
ppropiate routine to checksum either t 


command inputs and calls 


or image. 


‘User's input file spec 
‘Enable the condition handler 
'Preset success exit status 


!Initialize dynamic descriptor 


!Get input file spec. 


edesc);!Get user output file spec 


'See if /FILE 
'See if / IMAGE 
'If neither were specif 
' then default to /FILE 
'If both were specified 


ied 
' that's an error 
Initialize output fab 


‘With carriage control 
‘Output file parse 
‘Will do put's to file 


‘Zero resultant name string 


! and expanded name string 
tInitialize output file nam block 


'Initialize output file rab 


AX-11 Bliss-32 V4.0-74 
UTIL32.SRCJCHECKSUM.B32; 1 
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CHECKS 
v04= 


SRLS EES 


IWAI.AIAIAIP POPUP NONPOPUDR) 2 2 2 SS SS 
WN O DOONOUS WN —ODOONOULWH—O 


PPP ELLE LLLP LLLP ESE 


IMAGE Checksum 


he contents of a file 


main routine of checksum 


475 


ole lew le lolol olelolelelelolelolol a) 


Sede Del Dek Dek Ite Dede ee eee 


- 
+» 00000090000 00 Co CD 0000 ~~) 


—“OODONOUSWN—O 


oou0ono 


DUP PVP PT PUPP SESS II 
=—OOONOUE WN OO OONOUS WIN OC OONOUS WO 0Oo~ 


DOSOSOOOCOSOSODOSOOSDSOSOOSOOSOSOSOOOOOOOOOOOSDO 
WPRORPORPUNMONIIIN OOOO OOOO 


RIPPIN LAPINPININI HE BH BH BH HB BAAN WWW PIPNNKINUWI EE & 


CHSMOVE (dsc$c_s_bin,getfilename(ofab) 


out 
IF NOT .statu 
THEN S1GNAL _STOP(cksm$_openout 


4 
16-5 Sep-1984 7:3 AX=1 Bi ist =32 V4.0-74 1 
14-Sep 71382 98: 5:75 UTIL32. SRI CHECKSUM.B32;1 (7 


i ledesc): !Get the resulting filename 
edesc 
!'If error opening output file 

P OE pean, ! then give up now 


wstatun nalebt least ete 


IF NOT (status=$CONNECT(rab=orab) ) 


THEN SIGNAL_STOP(cksm$_openout,1, qutt i ledesc. 
.status,.orab § 


'Connect the record stream 
rab$l_stv 


Loop. calling Lib$find_file to get files matching the output spec 


tind_context = 0; 


dO 
IF NOT .status 
THEN SIGNAL (cksm$_parsefail,1 


.Tind_conte 
ELSE BEGIN 
7 ~ gententt rebte get] = true; 


i Call the appropiate routine to do 
or image. 


IF .file 
THEN” BEGIN 
find contexel abst xab) = 
checksum_file(); 


END 
ELSE BEGIN 
IF NOT (status = Lib$ge 


find -pengent) Sean _xab] = 
read. header () 


; END; 
Close the output file 


IF = Pp iuenre Sceeee irebearas 

THEN SIGNAL (cksm$ acloseout. 1 ° 
out f 5 pedese 
-orabLrab$l 


IF 7 (status=$CLOSE(fab=ofab)) 
THEN SIGNAL (cksm$_closeout, 1, 
out filedesc 


0, 0, SREF(2)) 


sum 
WINER tind: _contextCfab$v_bio] = true; 


‘Initial context is 0 


WHILE (status = Lib$find ikicadiheee | ig find.re ae find_context, 


THEN Sdescriptor('.DAT® ) 
ELSE $d eer iptert EXE')), 
) NEQ rms$ _nmt 


'Report sina if find_file failure 
find resu 
xt fabsTt etal. tnd. context(fab$l_stv]) 
‘Initialize for GET's 


! and block i/o 
the checksumming of the file contents 


oe /FILE then syeckeam the file 


simply readin 
txab the: Pkt XAB ~ BH 


Output is DCL symbol "qhockousicheckeun 


t_vm(cksm$gl_maxbyt, 
da abutter) , : R 


THEN SIGNAL _STOP(. status); 


0; 1No need to use XAB 
'Process CHECKSUM/ IMAGE 


'Of loop calling Lib$find_file 


)) 


. »Sstatus, 
stvJ]); 


» eStatus, 


we 


: 


; 


5 


~ IMAGE che 
ma 


cksum 


4 
5 


; RETURN (status 
END; 


54 


he contents of a file 
nN routine of checksum 


i 


dD 4 

1-88-1986 18:25:19 
-ofabCfab$l_stv]); 

= .exitstatus OR sts$m_inhib_msg); 


AX-11 Bliss-32 vee ots 
UTIL32.SRCJCHECKSUM.B32;1 


'Exit with no message 


-PSECT SPLITS,NOWRT,NOEXE,2 


54 55 50 4E 49 00 P.AAE ASCII \INPUT\ 
99 005 00 P.AAD: .LONG 
' “ADDRESS P.AAE 
55 50 54 4F 00 P.AAG ASCII OUTPUT 
9000006 0038 P.AAF: .LONG 6 
0000000" 000 ¢ -ADDRESS P.AAG 
45 4C 49 46 00040 P.AAI: ASCII \FILE\ 
0 000004 00044 P.AAH: .LONG 4 
000000" 0048 “ADDRESS P.AAI 
45 47 41 4D 4 O04¢ P.AAK Ascii \ IMAGE \ 
00000005 00054 P.AAJ: LONG j 
00000000" 00058 “ADDRESS P.AAK 
54 41 64 2E 0005C P.AAM: “ASCII \.DAT\ 
00000004 90060 P.AAL: .LONG 4 
000900 0° 00064 “ADDRESS P.AAM 
45 58 45 2€ 00068 P.AAO: .<ASCII \.EXE\ 
00000004 9096¢ P.AAN: .LONG 4 
00000000" 00076 -ADDRESS P.AAO 
SRMS_PTR= ORAB 
.EXTRN SYSSCREATE 
«PSECT SCODES,NOWRT,2 
OFFC 00000 CHECKSUMSMAIN: 
.WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10.R11 
58 000000006 00 4: 9002 HOVAB LIBSSIGNAL, rit 
9 0000 $86 0 9E 00 Of MOVAS LIBSSTOP, R9 
§ 000' CF 9€ 0 1 v OUTFILEDESC R8 
E F044 «CE. «OSE OOOTA MOVAB =700(SP), SP 
6p 0221 F oF OOlF MOVAL 17%, (FPS 
1 p 4 MOVL #1, EXITSTATUS 
CF 14 F ¢ 0028 MOVZWL 4312 ckSMSGL MAXBYT 
AE 020E00 F D f MOVL  #34471936, INDESC 
AE D4 7 CLRL_  INDESC+4 
AE 0 : A moves a8, INDESC, OUTFILEDESC 
AE F MOVCS #8, INDESC. FIND_RESULT 
04 AE SF 3 PUSHAB INBESC 
A DD PUSHL R 
00 ; FB OO04A CALLS #2, CLISGET_VALUE 
bb SHL R 
10 AA 9F PUSHAB P.AAF 
00 02 FB CALLS #2, CLISGET_VALUE 
1¢ AA OOF D PUSHAB P.AAH 


0419 


me 


4 

CHECKSUM_IMAGE Checksum the contents of a file 16-5 e AX-11 Bliss-32 V4.0-74 Page 17 

vOe main routine of checksum 1 $e: 1382 9: NS 3 UTIL32.SRCJCHECKSUM.B32;1 ° Ry 
000000006 1 F CALLS #1, CLISPRESENT ; r 
99 93 06 $ MOVL RO, FILE_SUM : F 
2c AA OOF A PUSHAB P.AAJ + 0446 ; 
000000006 1 FB D CALLS #i, CLISPRESENT : ; 
: D 4 MOVL RO, STATUS : : 
E 7 BLBS FILE SUM, 2$ + 0447 ; 
6 € 7A BLBS  STATOS, {$ : ; 
1 D 7D MOVL #1, FICE Sum + 0448 F 
7 €£ 80 1$: BLBC FILE SUM: 3$ + 0449 ; 
6 £9 2$: BLBC  STATOS, $$ : 0450 ; 
00031264 BF DD PUSHL #201444 : 0451 ; 
9 1 FB C CALLS #1, LIBSSTO : ; 
0050 = 8F 00 6E 00 2c 0 F 3$: mMovCS #0, (SP), #0, #80, SRMS_PTR + 0461 : 
BO AD 509 F BO 00 38 MOVW #206 5769 $RMS_PTR : 3 
B4 AD 20000000 F DO O009E MOVL #536 b912 taengs- PTR+4 ; 3 
C6 OA 1 90 000A6 MOVB #1, $RMS_PTR+22 ~ : ; 
CE AD 0202 F BO OOOAA MOVW a516" ms Pt PrAe30 3 : 
D8 AD FF CD i 90080 MOVAB OO SRMS~PTR+40 : ; 
DC AD 04 AB 00 00086 MOVL OUTFILEDEST+4 SRMS PTR#44 : ; 
4 AD 68 90 00088 MOVB OUTFILEDESC $rm : : 
OOFF 8F 00 6E aie 00 2c O0BF MOVCS (SP), #0, WSS, yes + 0463 : 
OOFF 8F 00 6E i 60 2c 09c3 movcS #0, (SP), #0, #255, OESS + 0464 ; 
0060 8F 00 6E 00 2¢ 0000 MOVCS #0, (SP), #0, #96, SRMS_PTR + 0469 ; 
FFSO cD 0009 ; : 
FFSO 6 CD 6002 §8F BO 000D MOVW #24578, $RMS_PTR : ; 
FF52 CD 01 gE OOE MNEGB #1, $RMS_PTR32 ; F 
FF54 CD 010C CE 9E 000E8 MOV ORSS, $RAS _PTR+4 : : 
FFSA CD 01 8E OOOEF MNEGB #1, $RMS_PTR+1 : ; 
FF5C CD OC AE 9E 0004 MOV oESs $RAS_PTR+1 : : 
0044 8F 00 6E 99 99 26 9008 MOVC (SP), #0, #68, SRMS_PTR ; 0472 ; 
90 a8 4401 8F 80 80108 MOVW #17409 SRMS_PTR : : 
cc AB BO AD 9E 00109 MOVAB OFAB, $RMS_PTR+60 : ; 
BO AD 9F 0105 PUSHAB OF + 0474 ; 
000000006 00 1 FB 011 CALLS #1, SYSSCREATE : : 
56 0 p O18 MOVL RO, STATUS : : 
BO AD 9F 118 PUSHAB OF : 0475 3 
0000v CF 1 FB 011 CALLS #1, GETFILENAME ; : 
60 8 28 001 MovCs «#8. (RO) OUTFILEDESC ; 3 
12 6 £8 001 LBS sTATU ds : 0477 : 
BC AD ODD 4 A PUSHL Wis + 0479 : 
6 DD 0012D PUSHL Hate ; : 
DD 0012F PUSHL R : 0478 3 
1 DD 00131 PUSHL # : ; 
000310A4 8F DD 001 3 PUSHL Bette ; : 
9 3 FB 001 CALLS #5, LIBSSTOP 3 5 
90 AB 9F 0013C 4s: PUSHAB > 0481 : 
000000006 90 gi F ot F CALLS i. SYSSCONNECT ; ; 
38 EB 00148 BLBS StAtUs * 
9C 28 DD g14c PUSHL ABSA > 0483 : 

6 DD 0014F PUSHL STATUS : 
DD O13 PUSHL > 0482 
1 DD 00153 PUSHL ; ; 


F 4 
CHECKSUM_IMAGE Checksum the contents of a file 16-Sep-1984 02:17:3 AX-11 Bliss-32 V4.0-74 
v04-000 main poutien of checksum 12-808=1 382 96:30} fOTiL 2.SRC CHECKSUM.B4551 “7 HB 
0003104 i DD 00155 PUSHL #200868 ; 
9 FB 00158 CALLS #5, LIBSSTOP : 
FF48 D4 0015€ 5s: CLAL FIND CONTEXT : 
6E DO 00162 4$: MOVL #2, TSP) : 
E bp 1 PUSHL SP : 
5 § 1 CLRQ.  =(SP) : 
96 5 f 169 BLBC FILE SUM, 7$ : 
38 AA F 1 MOVAB P.AAC, RO ; 
04 11 001 BRB 8$ F 
50 44 AA YE 00172 7$: MOVAB P.AAN, RO : 
50 DD 176 8$: PUSHL RO : 
FFG8 «6CBOOF 7 PUSHAB FIND_CONTEXT : 
08 A& 9F 0017C PUSHAB FIND~RESULT F 
iC AE OF OVE PUSHAB INDESC : 
as gb BES GALLS ge fattawerae : 
000182CA BF 6 01 8 CMPL STATUS, #99018 : 
: 13 0019 BEQL 14$ ; 
52 FF48 ¢ Dd 0019 MOVL  FIND_CONTEXT, R2 ; 
14 6 E 019A BLBS  STATOS, 10$ : 
7E 08 Ag D 9190 OVO 8(R2), =(SP) : 
08 AS 9F OO1A1 PUSHAB FIND_RESULT ; 
01 DD OO1A4 PUSHL #1 ; 
00031248 8F DD 0016 PUSHL #201288 : 
68 05 FB OO1AC CALLS #5, LIBSSIGNAL F 
Bl 11 OO1AF 9 BRB ; 
16 A 0¢ 88 018) 10$ BISB2 #2, 22(R2) ; 
0 § : 1B5 T° ee E_ sum 11$ : 
16 A2 20 8 0188 BISB2 #32, ~22(R2) F 
0c f 01BC LBC + FILE_SUM, 1 : 
as A D4 AB SE OOIBF 11$:  MOVAB  IXABFHC, 36(R2) ; 
FcC2.—s«CF 99 FB 0014 CALLS #0, CHECKSUM_FILE : 
97 11 001¢9 BRB 6$ ; 
146 AB OF OO1CB 128 PUSHAB DATABUFFER ; 
0000" CF 9F Ick PUSHAB CKSMSGL_MAXBYT F 
000000006 00 08 FB 001D CALLS a2, LIBSGET_VM ; 
5 D 9109 MOVL R STATUS : 
0 26 t 10¢ STATUS, 13$ ; 
6 DD 0010F PUSHL STATUS : 
9 01 FB 161 CALLS #1, LIBSSTOP F 
0 FF468 CB DO OO1E4 13$: MOVL FIND CONTEXT, RO : 
24 AO 04 OO1E9 CLRL ; 
0000v CF 0 it 1EC CALLS #0, READ_HEADER : 
BC 1 iF BRB 9$ ; 
90 AS 9F OO1F3 14$:  PUSHAB ORAB F 
000000006 00 1 FB OO1F6 CALLS #1, SYSS$DISCONNECT ; 
$ 0 dO OO1F MOVL RO STATUS ; 
1 E BLBS STATUS 15$ : 
9¢ AB OD PUSHL ORAB+12 : 
0D PUSHL STATUS ; 
DD PUSHL R ; 
DD A PUSHL @# ; 
00031058 8F DD PUSHL #200792 ; 
68 5 FB CALLS #5, LIBSSIGNAL ; 
BO AD 9F 00215 15$:  PUSHAB OF ; 
000000006 90 gi F 1 CALLS #1, SYSSCLOSE ; 
. 0 D 1F MOVL RO. STATUS : 


4 
CHECK IMAGE Checksum the contents of a file 18-5 Sep AX-11 Bliss-32 V4.0-7 Page 19 CHE 
vons0o0 main routine of checksum 14-Sep =}38% ¢: yf 3 UTIL Te SRCICHECKSUM. b3 31 . RY v04 
12 56 E8 BLBS STATUS 3 
BC AD DD PUSHL OFABs TS | ; 532 
g DD PUSHL ae 3; 05 
OD A PUSHL } ; 05 
1 OO C PUSHL é 
00031058 F DD PUSHL 3 
5 F ALL abies sie 3 
56 18 a8 10000000 8F ¢ 7 16$:  BISL i 35436, EXITSTATUS. STATUS 3 0534 
5 6 rh MOVL STATUS, 3 
4 RET 3 9333 
00 ? 44 17$: «WORD Save nothing : 0420 
43 i) 8 CLRL (SP) : 
5 bp 4 PUSHL SP 3 
7E 04 Ag 1) 4A MOVQ 4 (AP) (SP) g 
FD86 CCF 0 FB 4 CALLS #3, SIGNAL_HANDLER : 


; Routine Size: 596 bytes, Routine Base: S$CODE$ + 0203 


CHECKSUM. IMAGE 


Checksum the contents of a file 


4 
Catch signals 1228 Sep- 198 96: 3g t} rie 2. Brae caecksuM.03 31 


- | 
9 


= 
oO 


DPDPDPED PAs & 


WN SO OO NOA NEW OOD NOA UNE Wits 


Zsbttl ‘Catch signals’ 
5d catch _signals (sigargs,mechargs) = 
! 


i This condition senes.or is enabled when the image is being 
t catches info messages, and qiverts them to 


i processed. 
the output file. 
MAP 
sigargs 
mechargs 


Any other errors are resignaied. 


: REF er ee 
: REF $B8BLOC 


signame = sigargs(chf$l_sig_name] : SBBLOCK; 


Ht dsc$c_s_bin 
‘a Ss “bind, 


*e 


outbuf : fob ocxt? 

IF NOT .sign 
THEN R TURN ss$ aresignal; 

msgbufdesc acm ~length) = 256; 

msgbufdesc(d apo sneer = nggbut 

outbufdesc secsen ength] 

outbufdesc dsc$a_ “pointer) = outbuf; 


i Get the message and format the string 


'If this is not an informational moesegs 
' then we file 
‘Initialize the descriptors 


don't want it to go to outpu 


if NOT (status = SSETNSE (neg is. signame,ms ponsnsgbutdescldecdu, Lengthd, 


adr=msg ufdesc, 
THEN RETURN ss$ pm... l 


ELSE IF NOT (status =$faol(ctrstr=msgbufdesc,outlen=outbufdes 
ov rte Pe tami »prmlst=sigargs(chf$l_ sig_ argil+4)) 


THEN RETURN ss$_resign 
ELSE cksm_output (out utdese): 


signame(sts$v_inhib_msg] = true; 
mechargs(chf$T_mch_Savr0) = “signene(sts$v_ inhib_msg); 


RETURN ss$_continue 


END; 
~EXTRN 
0004 00000 CATCH_SIGNALS: 
WORD 
52 04 ADDL 


er): ae: 


Lags=1,outadr=outadr 


jpet found, so resignal 
Format the st ring 

| (skip the signal count longword) 
FAO error, so resigna 

imtt is well, write string to output 


‘Inhibit further message printing 


SYSSGETMSG, SYSSFAOL 


5948 (88), 1 oo 
Ws, SI nics, R2 3 2333 
ise. Is MSGBUF DESC : 0561 


4 

CHECKSUM_IMAGE Checksum the contents of a file tbs Sep-1 AX-11 Bliss-32 V4.0 Page 21 CH 
voes000" Catch signals 14-Sep- eats vi 9¢: 3g: t) UTIL32. SRC CHECKSUM. 3 31 ° (B) voE 

F4 OAD F d 9 15 MOVAB MSGBUF MSGBUF DESC +4 3 056 : 

FB AD 0800 F 80 18 MOVW Peo. bu BUF : 056 : 

FC AD 4 AE 9E MOVAB 4312.0 UOUTBUFDESC+4 : 0564 : 

3 DD 6 PUSHL SF : 0569 : 

D PUSHL #1 : : 

FO AD 9F A PUSHAB MSGBUFDESC : : 

F A F PUSHAB Bagpur bese 5 ‘ 

DD PUSHL ) : : 

000000006 99 FB CALLS #5, SYSSGETMSG : : 

1 © BLBC. STATUS : ; 

7E 04 AC . C ADDL3. #12, SIGARGS, -(SP) + 0572 ; 

FB AD OF 00041 PUSHAB OUTBUFDE : : 

F AD 9F 00044 PUSHAB OUTBUFDES¢ : : 

F AD 9F 00047 PUSHAB MSGBUFD : : 

000000006 00 4 FB 4A CALLS as 1st > AOL ; : 

6 0 2] BLBS US, 2s : : 

0918 BF 3c 4 1$ MOVZWL , R : 0573 : 

4 099 RET ; ; 

F8 AD 9F 0005A 28 PUSHAB our BUF DESC : 0574 ; 

0000v CF ol F 0050 CALLS ckSM goutPur ; : 

0 Ae ‘0 &8 0006 B1SB2 a1, : 057 ; 

s 08 AC Ov 00066 MOVL oe : 057 ; 

Oc ad 62 01 1C EF SO06A EXTZ2V #28, #1 R), 12(R0) : ; 

50 01 00 Boy o¥ MOVL ; 0579 : 

04 00072 RET > 0581 ; 


; Routine Size: 116 bytes, Routine Base: SCODE$ + 0457 


Read the image header into a buffer decoded by the special EXEC routines 
status = lngSdocode,_ thet -chan,hdr_blk,header,vbn, offset, hdrver,alias); 
id wor -Status 

SIGNAL( .status ); 'signal any errors in image file 


Fo ot oP at at at ot hh nh 


i The following checks are made on the er fi header fixed persion to see if legal 
! Major neader id must match. The header fixed apart must 
contain patch area. header block count is > 0. 


if . oheadert thdtu site NEQ ihd$k a" rid 


less than a block and must 


Cheaderlt hd$w_minorid))< j FOL Cihdsk sticer! x' ff") 
hea der ifidSw_mi ior 8.0 GTRU d$k . nor Py and %x'ff00")/256) 
OR .headerLihd w size pray me nyeth der Weasee wo of 
hd$k_maxlength) 


MEW —OOCONOU SWAN) OOO 


SSS = 


S 
DONO VUES WN" O OONOUE WIN "OO 


ih 
OR ‘ -headerLihd$b_h grbtkentl* 
OR (header + .headerLihd$w nedC26 Of 


CH IMAGE Checksum the contents of a file 1bese S$ep-1984 AX-11 Bliss-32 v4.0 CHE 
Vonc Process CHECKSUM/ IMAGE Haat 7 9¢: tS 3 UTIL32.SRC CHECKSUM. 63 31 v0é 
3 5 1 Zsbttl ‘Process CHECKSUM/IMAGE' 3 
; 1 ROUTINE read_header = F 
: ¢ BEGIN : 
; 6 i Open the file “bead RMS with the UFO (User File Open) bit set. The ; 
s 3 ! read the image hea ae ane the EXEC routines which do $Q10's given ; 
3; 33 3 ' the channel from S open., and checksum the image sections. Ignore s 
: \§ ; the parts of the meer hoster that can always be different, (ex: da e/time). ; 
: 514 9 LOCAL ; 
s 315 3 isdnum ‘isd number 5 
3 1 37 headers we Ktst ‘Buffer containing decoded header 3 
s 31 cur hdrisd LO {23. ‘current isd in header 3 
3 is 95 hdr blk : : $eBLOCKES ‘buffer for image header -undecoded 3 
3 atus, 3 
; 0 238 von, 'Used by header decode routines 3 
3 1 598 offset, 'Used by header decode routines : 
; ¢ 599 hdrver, 'Used by header decode routines 3 
: Z 89 alias ; ‘Used by header decode routines : 
: 5 be8 ENABLE catch atoneiel !We want output to go to output file also ; 
; 6 0 cksm$gl_ihdcKsm = 0; ‘Zero image header checksum 

3 7 0604 isdnum = 0; 'first isect is 1 

: 8 0605 cksmSal _acuck ‘Zero accumulated checksum 

3 o Bene SIGNAL (Tksm$_ test ‘ tind. result); ‘Print the filename 

: $31 0608 

; g Bst0 7 First, open the file using RMS with an UFO option. 

; 611 tind_contextlfab$v ufo] = true 'User file open option 

: 535 pols IF NOT (status = $dpen(fab=. tind _context)) '‘Open the input file 

; ¢9 061 THEN SIGNAL(cksm$_openin, 1, 

3 0614 nd_result, ° 

3 0615 find_ enteietFabht stv); 

: 3018 Se _contextL fab$v ufo) = vases ‘clear the bit after open 

; 061 chan"= .find_context(fab$l_stv 'Keep around the assigned channel 

O61 ; 

3 6 

; 6 


QPP PTLD DVD PVP DVD IV PVD DVSIUDUDULIUST SUSU SISSON 


o 
_ 
co 


CH Ck IMAGE Checksum the contents of a file $ep-1984 02:17:31 AX-11 Bliss-32 V4.0-74 Page 23 

Vv Process CHECKSUM/ IMAGE 16- sen-1984 96:30 :%) UTIL32. ORI CH nECKS ine 33:1 . (33 

; 6¢ 3 GEQU (header + .headerLihd$w_size]) ; 
; 36 4, THEN BEGIN ; 
> 5364 64 SIGNAL (cksm$_badimghdr,1,find_result); rany above not true, fatal image header error : 
; 565 4 status = $dagsgn(chan=. chan); ideassign channel ; 
3 28 64 cksm_foreign(); 'Checksum non-inage file : 
; 56 644 RETURN true $ 
3 eB ry 3 : 
3 $3 O64? ! Otherwise just checksum the contents of the fixed portion of the image . 
$ q re ! header : 
; ig 0650 cksm_header (header) ; 3 
3 74 : 
3 af? bee8 ‘ 3 
3 zg Beez Now, checksum all the ISD's (Image Section Descriptors) : 
; sre 0655 WHILE 1 F 
, oF 0656 DO BEGIN 3 
; 580 0657 pate = ings pet next_isd(.chan,hdr_blk, none. vbn, offset, curhdrisd); 3 
: 581 0658 .status EQLU IMG$_ENDOFHDR Until no more ISD's.... ; 
3 ob¢ 0659 : 
3; 38 0660 EXITLOOP; 3 
> 584 0661 IF NOT .status 3 
; 585 ea) 4 THEN BEGIN 3 
; 586 0665 4 SIGNAL (cksm$_badimghdr,1, find, result); :signal error 3 
; 587 0664 4 status = $dassgn(c an=.chan); 'deassign channel 3 
; 588 0665 4 cksm_foreign(); land checksum as foreign image 3 
; 589 0666 4 RETURN true; : 
: 590 0667 4 E 3 
; 591 0668 3 ELSE : 
3 236 0669 4 BEGIN $ 
3; 39 0670 4 isdnum = .isdnum + 3 
3; 594 0671 4 checksum Seottanteurairiedts ‘compute isect checksum 3 
3 $2 0672 4 IF -curhdrisdlisdsl von] N ed 0 'If section has disk file space : 
; 596 0673 4 T curnarTsdlisdsy _dzro] ! and is not demand zero 3 
s 397 0674 5 THEN ABEGIN : 
; 598 0675 5 SIGNAL (cksm$_isectchk,2,.isdnum,.cksm$gl_chksum); '!Print isect checksum 3 
3 4 sth ? cksm$gl_ acucksm = .cksm$gl_acucksm XOR .cksm$gl_chksum; !Accumulate new improved checksum 3 
; 601 0678 END; 

3 0g 0679 END; ‘end of isection loop 

2: oS 

; 605 Be ! Print checksus of image header and total checksum, and define a DCL 

3 $3 ret symbol with the checksum value 

; 608 85 SIGNAL (cksm$_ ihdchksum,1,.cksm$gl_ihdcksm); 

3; 609 3 SIGNAL (cksm$_allischk, {,-cksm$g _acucksm); 

3 ei define_sym(.cksm$gl_acucksm); 

; o1g 59 IF a (status=$DASSGN(chan=.chan)) 

s 61 90 THEN SIGNAL (cksm$ _closein, 1, 

3; 614 91 nd_fesult, .status); 

; 615 9 

3 618 9 RETURN true 

; «661 94 END; 


4 
CHE CE IMAGE Checksum the contents of a file 16- Sep-1984 0: \ii3 AX-11 Bliss-3 


0-76 4 
Process CHECKSUM/ IMAGE 10-Sep-1984 o7885;1 Page $} 


2 v4 
UTIL32.SRCJCHECKSUM.B 


-EXTRN SYSSDASSGN 


O1FC 00000 READ_HEADER: 
WORD e R2,R3,R4,R5,R6,R7,R8 ; 0583 


‘ Sav F: 
§ 000000006 00 9E 90002 MOVAB SYSSDASSGN, R : 
000' CF 9E MOVAB aKSMsGr ACUCKSM, R7 : 
é 00 ' cf E ; MOVAB (CHAN, Rb : 
0000 9 G6 60 9€E 0001 MOVAB LIBSSIGNAL, RS : 
E FOFO CE 9E OOOIA MOVAB <-1552(SP), S : 
6D 0194 (CF D OF MOVAL 118, (FP) : 584 
FB OA? OD 4 CLRL CKSMSGL_IHDCKSM + 0603 
33 D4 00027 CLRL +‘ ISDNUM + 0604 
67? 04 90 9 CLRL CKSMSGL ACUCKSM + 0605 
00c6 C6 OOF B PUSHAB FIND RESUL + 0606 
1 DD 0002F PUSHL # : 
000000006 8F DD 00031 PUSHL tt FILE F 
65 3 FB 00037 CALLS IBSSIGNA r 
50 04 Ab 20 003A MOVL ND_ CONTEXT, ‘Ro + 0611 
06 AO 98 8 000 F BISB2 , 6(RO) : 
DD 0004 PUSHL + 0612 
000000006 00 1 FB 00044 CALLS #1, SYSSOPEN : : 
32 0 pO 00048 MOVL RO, STATUS : ; 
1 2 €8 O004E BLBS STATUS, 1$ : : 
50 04 A6 DO 00051 OVL FIND CONTEXT, RO > 0615 3 
0c Ag DD 00055 PUSHL 12(RO) : : 
52 DD 00058 PUSHL STAT > 0614 : 
00c4 (C6 9F O005A PUSHAB FIND_RESULT + 0613 ; 
1 DD 0005E PUSHL #1 : : 
0003109A 8F DD 00060 PUSHL st: : 
6 5 FB 0066 CALLS #5, LIBSSIGNAL ; 
50 04 Ab p 0069 1$: MOVL FIND CONTEXT, RO + 0616 
06 AO 08 A 906p BICB2 (RO) : 
66 0c Aad 00 00071 OVL 15tR ), CHAN : 0617 
SE DD 9075 PUSHL 3 > 0622 
08 AE 9F 0007 PUSHAB HDRVER : 
109 AE 9F OOO7A PUSHAB OFFSET : 
18 AE OOF 9070 PUSHAB : 
FEOO CD 9F 00080 PUSHAB HEADER : 
24 AE 9F 00084 PUSHAB HDR BLK : 
66 DD 0087 PUSHL CH : 
000000006 7 FB 00089 CALLS #7, IMGSDECODE_IHD : 
D 9090 MOVE = RO,_STAT : 
E 9 BLBS _—SiATUS, ; 0623 
5 85 PB b0838 Che BL Ss IGN Se 
3230 $7 FEOC 3 i} one 2$: CMP HEADERS 2, tS ec8 > 0632 
00 : oA BRW ; ; 
30 FEOE cD 1 O00A7 3$: CMPB HEADER+14, #48 + 0633 
M2 AC BNEQ 4 ; 
35 FEOF cp 9 i CHP HEADER+15, #53 > 0634 
FEO8 3=CD 3 0 B5 4$: MOVZWL WEADERS8. RO > 0635 
¢ C BA ADDL2 #44 : 
000000A8 BF D1 0008D PL =O, vee : 


mM 4 
CHECKSUM_IMAGE Checksum the contents of a file 16-Sep-1984 02:17:31 AX-11 Bliss-32 V4.0-74 e 
v04=" Process CHECKSUM/ IMAGE 19-80-1382 EEL LOT IL 2.SRC CHECKSUM. 63351 a (33 
4 1€ 000C4 BGEQU 5$ : 
5 AS 8F 9A 00066 MOVZBL #168, RO : 
50 FEOO CD 3 Q FD CA 5$: CMP LV 1, #16, HEADER, RO ; 
rm EU wen : 
1 FEQ0 CD Ha 09 MOVAB HEADER, R1 : 
0 FEO4 cb ¢ DE MOVZUL HEADER+4, RO : 
50 FEOQO §86 CD ee O£6 MOVAB HEADER, RO : 
4 FEOQO CD ¢ O0E MOVZWL HEADER, R4 : 
0 4 ¢ OOF ADDL2 R4, R : 
0 1 D1 000F CMPL RI. R : 
2 1€ O0F6 BGEQU§ §7$ : 
FEOO CD OF OOF PUSHAB HEADER : 
0000v CF 01 FB O00FC CALLS #1, CKSM_HEADER : 
0210 CE 9F 00101 6$ PUSHAB CURHDRISD ; 
OC AE 9F 00105 PUSHAB OFFSET ; 
14 AE OF 90108 PUSHAB VBN ; 
FEOO CD 9F 00108 PUSHAB HEADER F 
20 AE 9F 0010F PUSHAB HDR_BLK ; 
66 DD 00112 PUSHL CHA ; 
000000006 00 06 FB 00114 CALLS #6, IMGSGET_NEXT_ISD ; 
52 0 pO 0011B MOVL RO. STATU ; 
08408640 FF 52 (1 OOt1E CMPL = STATUS, #139298368 ; 
H 13 001 BEQL 46s«O9S ; 
1E : 8 00127 BLBS STATUS, 8$ : 
00c4 C6 SF 0012A 7$ PUSHAB FIND_RESULT : 
or DD 001 ¢f PUSHL #1 ; 
000000006 8F DD 00130 PUSHL #CKSM$_BADIMGHDR : 
65 03 FB 00136 CALLS #3, LIBSSIGNAL ; 
66 DD 90139 PUSHL CHAN ; 
68 01 FB 00138 CALLS #1, SYSSDASSGN : 
52 50 DO 0013 MOVL RO, STATUS ; 
0000v CF 00 FB 00141 CALLS #0, CKSM_FOREIGN ; 
68 11 00146 BRB 10$ ; 
53 06 00148 8$ INCL —_ISDNUM ; 
0210 cE 9F OO14A PUSHAB CURHDRISD ; 
0000v CF 1 FB OO14E CALLS #1, CHECKSUM_SECTION ; 
021¢ CE D5 0015 TSTL | CURHDRISD+12 : 
AS 13 00157 BEQL : 
A2 0218 CE 02 €0 00159 BBS #2, CURHDRISD+8, 6$ ; 
FC A? «ODD 0015F PUSHL  CKSMS$GL_CHKSUM : 
; DD O16¢ PUSHL ISDNUM : 
DD 001 PUSHL ; 
000000006 8F DD 00166 PUSHL #CKSM$_ISECTCHK ; 
65 4 FB 0016C CALLS #4, LIBSSIGNAL ; 
67 FC a7 c¢ O16F XORL CKSMSGL_CHKSUM, CKSMSGL_ACUCKSM : 
F8 aS dD 158 9$: PUSHL  CKSMSGL_IHDCKSM : 
1 DD 00178 PUSHL ; 
000000006 BF DD OOI7A PUSHL acKSMs JHDCHKSUM : 
65 3 FB 001 CALLS @# 18 SIGNAL F 
DD 001 PUSHL  CKSMSGL_ACUCKSM ; 
1 0D 001 PUSHL #1 : 
000000006 8F DD 001 PUSHL aCKSHS ALLISC!'” : 
65 3 FB 0018D CALLS #3, LIBSSIGNAL : 


N se 
cy cf UM_IMAGE Checksum the contents of a file 16-Sep AX-11 Bliss-32 V <8 -74 Page 26 
Process CHECKSUM/ IMAGE 12-8 Sep =138% ¢: NS 3 UTIL32.SRC CHECKS “333.1 . (88 
7 DOD 1 PUSHL tales ei ; 0687 
FA04 CF 1 FB 1 CALLS DEF FINE_S 3 
6 DD 001 PUSHL oh ; 0689 
g 7 F 1 CALLS #1, SYSSDASSGN 3 
) 19¢ MOVL 3 
1 E8 0019F BLBS STATUS, 10$ : 
tg 1g PUSHL STATU 3; 0691 
00C4 C6 OF 1A PUSHAB FIND_RESULT 3; 06 
1 DD OO1A8 PUSHL é 
00031050 F DD OO1AA PUSHL #200784 3 
65 4 FB 3180 CALLS #4, LIBSSIGNAL 3 
50 01 bi8 10$: MOVL #1, RO 3; 0693 
4 186 RET 3 0694 
0000 00187 11$: «WORD Save nothing 3; 0584 
7E D4 00189 CLRL (SP) : 
5E bp 00188 PUSHL SP g 
7E 04 ag D 00180 ova 4(AP), =-(SP) : 
FDC6 CF 0 FB 001C1 CALLS #3, CATCH. SIGNALS $ 
04 001C6 RET 3 


; Routine Size: 455 bytes, Routine Base: $CODE$S + 04CB 


KSUM_IMAGE Checksum the contents of a file 16-5 


—_ 


PARAAAAAAAAEA AAA AAAAA AS 
DWONOULEWN "OC OONOULSWN—O” 


an 
= WNWINNYINWwrn 


DWONOULSWN—"OVOONOUSwr 


PPA & 


= 


Egeeseees 


Wn—ooO 


Bete Se Se Se Ge Fe Ge Ge Se Ge Ge Ge Ge Fe Ge Ge Ge Fe Ge Fe Ge Gee Ge Se Ge Ge ee OF Se Se Se Se Fe FHSS Se SH Ss Os oe HSE SH es HOES Ss OHSS Os ee ee 


GAO 
ANN 


pai9ee 19:25:19 ONL b°SReScHecksom. 33,1 


Checksum image header contents 984 UTIL32.SRCJCHECKSUM.B 


Zsbttl ‘Checksum image header contents’ 
ROUTINE cksm_header (Cimageheader) = 
EGIN 
Checksums the non-variable contents of the image header 
INPUTS: 
Imageheader points to the first block of image header in memory 
NOTE: 


This routine expects the fixed part of the image header to be contained 
in the first block of the image. 


DOOOOGDOCCOCONO 


MOOD NA UES WIN © ODNOUES WN $$ OOONAULS WN OO OONOULSWIN—OWOR 


ee ren : «| 


ws 


OOCCSCOCCCOCOOOOCOCOCOOCOOooOoO 


SNS NNN NSN SOO 


FS PAAAAAANAAAIAIDPIPIPINSNININONYNDY 3 SS OS OO 


= a3 

= .imageheader + .imageheaderlihd$w_symdbgoff] : VECTORL, LONGI, 
= .imageheader + .imageheaderlihd$w_imgidoff] : S$BBLOCK, 

= .imageheader + .imageheaderLihd$w_patchoff] : VECTORC,LONG]; 


cksm = .cksm XOR .imageheaderCihd$l_inkflags]; !Include the Link flags 
; Checksum the activation data 
INCRU i FROM 0 TO 2 
DO IF .ihal.ij EQL 0 

THEN EXITLOOP 

ELSE cksm = .cksm XOR .ihal.il; 
Checksum the symbol table and debug data 

, ‘eopeheadert inate syndbgoft) NEQ 0 
EN INCRU i FROM 0 TO ihs$c_length/4 

O cksm = .cksm XOR .ihsf.i]; 


Checksum the image header ident section data 


=n 


Not done, since it’s all variable data 


mime meme dt met me 


SQN NNN NNN 


Checksum the patch data 


=xQone oe wom 


- imapeheaderl ihgSu_patchott) NEQ 0 
EN INCRU i FROM 0 to sit | ulate 
O cksm = .cksm XOR .ihpl.iJ; 


F 
H 
RETURN true 


1 

1 

69 

imageheader : REF $B8BLOCK; 

BIND 

cksm = cksm$gl_ihdcksm 

ine -imageheader + . imageheader Tpdew ect tyett VECTORC,LONG) 
s 

ihi 

ihp 

2 

END; 


A ie a te Ws htt 
= 


CHECKSUM_ IMAGE 
vous000 


; Routine Size: 


Checksum the contents of a file 
Checksum image header contents 


52 
55 
54 


95 bytes, 


HPOVWAGVIVIUTIVI 
AOWOo-0o-"- oe 


oo 
ny oO 


66 
05 


66 
OA 
50 


Routine Base: 


007¢ 


0099" cf 4 
2 no Be 
51 ¢1 
04 ad 3C 
51 ¢ 
08 4 C 
53 C1 
20 AO CC 
50 D4 
624 rE 
08 1 
6240 CC 
23 D6 
Q 01 
FO 1 
51 0 
QD 1 
51 D4 
6541 CC 
2} D6 
2] ot 
53 0S 
OD 1 
50 04 
6440 CC 
50 06 
50 01 
F5 «(18 
01 00 
04 


SCODES + 0692 


00000 CKSM_HEADER: 


OOQOOOCOCOCOCOCOOOOCOCOoOoOO 


oOOoooooooooo°oooO 


oooooocoo 
jofolelelelojlolo) 


Naess ~NrO 


a one 


COOoOoCOOCOoOOOOOOOOOOOOOOOoOoOO 
DOOOOOCOSCOSCCOSCOCOCOOCOOOOCOooOoo 


MDOP LOMO SPOUIWTOD ONL NMO OVW DD 


DPV & & & & 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


TIL 


Parr gorse -32 V4.0-74 


SRC ICHECKSUM.B3 1 


CKSMSGL_IHDCKSM 


Save R2,R3,R4 


R3 
RS, rb, R4 
32(R0), CKSM 
(R2)C1) 


2s 
(R2)C1J, CKSM 


Aa oe 
an 
~m 


R5)CIJ, CKSM 


DN ee ee Et) he 
. 
ww 


— ae 
PAN 


(R4)CIJ, CKSM 
#10 

§ 

#1, RO 


oR5,R6 


wef 
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CHECKSUM_IMAGE Checksum the contents of a file 16-Sep 4 02:17:31 AX-11 Bliss-32 V4.0-74 
v04-000 Read block 14-Sep 71382 ¢: 2:25:19 fOtIL 2.SRCICHECKSUM.B32;1 
3; 675 750 1 &sbttl ‘Read block’ 
: ore 7 1 ROUTINE read_blocks (nblocks,first_block) = 
; 67 7 BEGIN 
; 678 7 
; 679 754 LOCAL 
; 680 755 iosb : VECTORC 4, WORD J, 
: et f $ readerror; 
: 68 P 0758 IF NOT (readerror = $qiow( ‘attempt to read file 
: BBG p 0759 ofa sf, . 
; 685 P 0760 chan = .chan, 
3 $86 P 878) func = jo$_readvblk, ! Read a virtual block 
, © P 166 iosb = ios ' 1/0 Status block 
; 688 P 076 pi = -databut fer ! Buffer to read in to 
3; 689 P 0764 p2 = .nblocks* 12, ! number of bytes to read 
: oy P he yy? = .first_block ! starting VBN to read 
3 o8 Or? THEN SIGNAL (cksm$_readerr,1,find_result,.readerror); 
; 694 o7e8 RETURN .iosb(0J; 
; 695 0770 1 END; 
-EXTRN SYSS$QIOW 
0000 00000 READ_BLOCKS: 
-WORD Save nothing 
5E 98 2 0000 SUBL2 #8, SP 
—E 7C 9009 CLRO. 0s = §P 
7E 04 0000 CLAL -(SP 
08 AC 4 0009 PUSHL os BLOCK 
7E 04 ac 09 000C ASHL #9, NBLOCKS, -(SP) 
0000" CF DoD 00011 PUSHL DATABUFFER 
E 7C 00 13 CLRQ (SP 
20 AE 9F 0001 PUSHAB I0SB 
31 oD Beta PUSHL #49 
0000" CF oDD 1 PUSHL CHAN 
7 OD 38 PUSHL 
000000006 09 3 F CALLS a2, SYSSQ10W 
1 E8 00 BLBS READERROR, 1$ 
0 0D C PUSHL READERROR 
0000" CF OF PUSHAB FIND_RESULT 
1 OO PUSHL # 
00031082 F OD PUSHL 00882 
000000006 98 4 FB A CALLS #4, LIBSSIGNAL 
bE zt a1 1$: mOVZUL 1058, RO 


; Routine Size: 69 bytes, Routine Base: SCODES + 06F1 


Page a4} 


Bete Se Se Se Se Ge Se Se Ge Ge Se Se Se Ge Be Se Be Be Be Be 
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CHECKSUM_IMAGE Checksum the contents of a file 1-5 “1984 02:17:31 AX-11 Bliss-32 V4.0-74 
vous cksum loser peetion descriptor 12280871 38e i Bae) {Orie 2.SR¢ CHECK SUM.04951 Page 439 


1 Zsbttl ‘Checksum bees section descriptor’ 
1 awe checksum_section (isd) = 


Checksums the contents of an image section 
INPUTS: 
isd pointer to ™ image section descriptor for 
) 


? ' an image section. 
MAP 

7 isd : REF S$BBLOCK; 

5 


BIND 
isdvecbyt = .isd : VECTORC,LONG); 


NANAAAAAAVSSS 
CDRP ARGO DOO 
COSCCCCCOCOCCOOCOOOCOOOOOOCSCO 9 


> > > > > bp be be ede ee i i i i 


0804 


1 

1} 

18 

14 8 LOCAL 

15 9 maxblocks, 

1 90 tblocks 

1 91 blockoff, 

18 4 iblocks; 

19 9 

20 94 ' 

$) 34 Add isd into image header checksum 

$6 $799 INCRU i FROM O TO .isdlisd$w_sizeJ-1 

$e Boe DO cksm$gl_ihdcksm = .cksm$gl_ihdcksm XOR isdvecbytl.iJ; 

26 0800 IF .isdlisd$v_dzro] 'Skip section if demand zero 
27 0801 OR .isdLisd$l_vbn] EQL 0 ! or no disk address assigned 
28 080 OR .isdlisd$w_pagcnt] EQL 0 ! or no pages (should never happen) 
$3 080 THEN RETURN true; 

31 

32 

33 

34 

35 

36 

37 

38 


Se in be Pin, Bin Bian in. PP Btn ne Pe Tn Sn Py Dy i i i i ie | Pm 


0805 cksm$gl_chksum = 0; ‘Zero checksum for section 
0806 maxblocks = -Chouegt mente (ste: ‘Figure max number of pages 
0807 iblocks = .isdlisdSw_pagcnt); 'Get size of image section 
0808 blockoff = 0; 
0809 WHILE .iblocks GTRU 0 'Do all blocks in the image section 
0810 DO BEGIN 
0811 tblocks = MINU(.iblocks,.maxblocks); 'Compute size of this read 
pats IF read_blocks(.tblocks,.isdlisd$l_vbn]+.blockoff) 

444 siz THEN | 

oe O83 } Checksum what we have read 

74 0817 INCRU i FROM 0 TO .tblocks*127 

744 z13 DO cksm$gl_chksum = .cksm$gl_chksum XOR .databufferl.i]; 

745 1 blockoff = .blockoff + .tblocks; ‘Update block offset 

ocks = .iblocks - .tblocks; ! an ocks to go 

Sy 9 iblock iblock block ! and blocks t 

748 : 

749 8 i RETURN true 

750 824 END; 


5 
CHECKSUM_IMAGE Checksum the contents of a file 16-Sep-1984 02:17: AX-1 iss- 4.0-74 
v04- Checksum image section descriptor 1 =3007 1382 TEE Otiud2°sRe CHECK SUM.09351 Page 43) 


OOFC 00000 CHECKSUM_SECTION: 
WORD 


R2,R3,R4,R5,R6,R7 
CH . 


; Routine Size: 136 bytes, Routine Base: $CODES + 0736 


Save : $ 

7 009 ' CF 9 g MOVAB CKSMSGL | KSUM, R7 : ; 

4 4 At p VL ISD, R : ; 

2 $4 36 B MOVZWL (R45, R2 : ; 

§ ) DECL R2 ; 3 

04 CLRL j : : 

A /1 1 BRB $ : : 

51 6440 DE 00014 18: MOVAL (R4)CIJ, R1 : ; 

FC OA? ez. 18 XORL2 1, CKSMSGL_IHDCKSM : : 
0 D 1C INCL 1 : ; 

52 D iF 2$ CMPL R2 : ; 

Fl 1 BLEQU 1$ : ; 

5c 08 Ad 02 € " 3 BBs #3, BCR), 8S : 
OC AG OD TSTL  12¢R4) : ; 

57 13 00028 BEQL $ : : 

02 Ad : 02D TSTW (R4) : 3 

3¢ 00 9 BEQL $ : ; 

6 D4 000 CLRL_ CKSMS$GL_CHKSUM : : 

56 08 a7 00000200 € 7 0034 IVL3) #512, CRSMSGL_MAXBYT, MAXBLOCKS 3 F 
53 02 Ad 3C 00030 MOVZ2WL 2(R45, IBLOCKS : : 

55 D4 00041 CLRL BLOCKOFF : ; 

33 D5 00043 3$ TSTL IBLOCKS : : 

p 13 9004 BEQL $ ; 3 

50 53 pO 00047 MOVL ‘ IBLOCKS, RO ; ; 

56 30 D1 O004A CMPL RO, MAXBLOCKS : : 

0 18 00040 BLEQU 4 : ; 

50 56 DO 0004F MOVL § MAXBLOCKS, RO : ; 

52 30 DO 00052 4$ MOVL RO TBLOCKS : : 

0c B445 9F 9005 PUSHAB @12(R4) CBLOCKOFF] ; : 

52 DD 00059 PUSHL TBLOCKS : : 

FFSB OCF 08 FB 00058 CALLS #2, READ_BLOCKS ; : 
19 £9 99060 BLBC 7$ ; : 

51 52 0000007F BFC 00065 MULL w27, TBLOCKS, R1 : : 
08 11 its BRB 6$ : : 

67 0000'DF49 CC 9006F 5$: KORL2 @DATABUFFERCI1, CKSMSGL_CHKSUM : : 

51 50 01 60077 6$: CMPL i R1 ; : 

3 1B OOO7A BLEQ 4 : : 

55 3 CO 0007C 7$: ADDL2 TBLOCKS, BLOCKOFF ; : 

53 ( or SUBL2 TBLOCKS, IBLOCKS ; : 

BF BRB : : 

50 1 pO 00084 8s: MOVL #1, RO : : 

04 00087 RET ; : 


we 


| 
NO 


IMAGE Checksum the 
checksum 


2c 


WNWWINAANWINWrorororon 


WN" SO OONOVEWN “OO OONOUS WN OO@W 


OOCOCOCOCOCCOOOOOCOSoO: 


OooooocKeo 
SOOONOUSE 


ontents of file 
mage files 


1 Zsbttl ‘checksum foreign image files’ 
1 poyi ane cksm_foreign = 


oreign 


1 
Open the file using RMS with a FHC XAB atta 


information. 


OCA 
locstdees : SBBLOCKCisd$k_lenpriv], 
status; 


find Contoxtt fabSt _xeb) = ixabfhe; 
SXABFHC_INIT(xab=ixabfhc); 
IF status = Sopen(fab=. find_context)) 
THEN BEGIN 
SIGNAL (cksm$_openin, 1, 
nd_result, status, 

find context fab$l_stv)); 

Be TURN false; 


isectdesclisd$w_size] = isd$k_lenpriv; 
isectdesclisd$l_vbnj =_1; 


CHSFILL(O, isdSk_lenpriv,isectdesc); 
isectacet 


eSepm tobe 19:25:49 


isd$w pagent] : -ixabfhcCxab$l_ebk] + | 


nih Bliss-32 V4.0-74 
UTIL352.SRCJCHECKSUM.B32;1 


ched to get the End of File 
Do a checksum of the non-image file. 


fey XAB address 
tialize XAB 
‘Open the input file 


'Make it look Like an isd 
‘File starts with first block 
Set length of file 


*(,ixabfhcCxabSw_ffb] NEQ 0) 


checksum_section(isectdesc); 
SIGNAL (cksm$_nonimgchk,1,.cksm$gl_chksum); 


IF NOT (status=$CLOSE(fab=.find_context)) 
THEN SIGNAL (cksm$_closein, T, 
find_result, .status, 
.find_context(fab$l_stv)); 


RETURN true 
1 END; 


9 00000000¢ 


24 Ag 008C 
00 6€ oac 
ose 72H 
000000006 58 
50 


SRMS_PTR= 


00000 CKSM_FOREIGN: 
~ WORD 


‘Checksum it 
IXABF HC 
Save R2,R3,R4,R5,R6,R7,R8 
MOVAB LIBSSIGNAL. R& 
MOV FIND CONTEXT, R? 
SUBL2 #16, "SP 
MOVL FIND CONTEXT R6 
ROVAB IXABFHC, 36(R6) 
movcS #0, (SPS, #0, #44, SRMS_PTR 
Vw #11293, SRMS_PTR 
PUSHL R 
CALLS 


0826 


0836 
0837 


0838 


0842 


Cie ce IMAGE Checksum the contents of a file 


10 


; Routine Size: 


checksum foreign image files 


oc 58 

00c0 : 

0003109A F 

68 5 

00 6€ 36 
6 ib 

Oc AE 9 

00A0 

02 AE 50 009C : 
FFO2 =sCF i 
0000" : 

000000006 8F 

68 ; 

000000006 90 1 
6 0 

17 § 

50 6 

0c Ad 

e 

00C0 : 

00031050 F 

68 5 

50 1 


“ 
o 


178 bytes, Routine Base: S$CODES + O7BE 


ri 


5 
“Se 
14-Se 


pryobe SGi55:39 | HON bsPShes cae gua 293..4 


12(R0) 
STATUS 
4 ND_RESULT 
00858 
#5, LIBSSIGNAL 
#0, (SP), #0, #16, ISECTDESC 


#16, ISECTDESC 
4 ISECTDESC+12 


gp errs 


RO 
Petting RO, ISECTDESC+2 


CHECKSUM SECTION 
CKEnScL HK SOM 


a KSMS mom inecie 

“pt LBSSIGNAL 
Fh CONTEXT 

SYSSCLOSE 

RO 3 STAT $ 

FIND US ouTEXT, RO 

12(R0) 

STATUS 

FIND_RESULT 

#200784 

#5, LIBSSIGNAL 

#i. RO 


RO 


d-seo-1984 tae Prat ton sae =32 V4.0-74 Page 34 


COE CER a MAGE Checksum the contents of a file 1 5 
Vv Call FAOL 14-Sep-1984 2:25:19 TIL32.SRCJCHECKSUM.B32;1 (14) 
H 788 61 1 &sbttl “gett FAOL' $ 
3; r 1 ROUTINE fao_buffer (ctrstr,args) = 3 
: 791 BEGIN ; 
: 79 5 2 | Call FAOL ; 
; 794 § : 3 
: Oe a SBBLOCK Cdsc$c_s bin], !Result descri 
; esc : c$c_s bin], !Resu escriptor 3 
: Re buf : VECTOR ci95° BY e}: 'Output buller” : 
i? Hi MAP ; 
; 7 ctrstr : REF VECTOR C,BYTE), 3 
: B91 7 args : VECTOR (4); : 
; 80 75 2 LOCAL ; 
: B8e ug faodesc : S$BBLOCK Cdsc$c_s_bin]; 3 
; 806 878 faodesc Cdsc$w_length] = .ctrstr (0); 'Set descriptor for fao control strin 
; 807 $879 faodesc dscSa-pointer) = ctrstr abe ‘ee ; “ 
; 808 0880 desc Cdsc$w_length) = 132; 'Set up result descriptor 
; 809 0881 2 desc Cdsc$apointer) = buf; 
; 810 Pp pees $faol (ctrstr=faodesc,outlen=desc, !Format the string 
; 1 th outbuf=desc,prmlst=args); 
: £18 0885 RETURN desc; ‘Return value is address of resulting descriptor 
; «814 0886 1 END; 
-PSECT SOWNS,NOEXE,2 
QOOEO DESC -BLKB 8 
OOOE8 BUF -BLKB 132 
-PSECT SCODES,NOWRT,2 
0004 00000 FAO_BUFFER: 
«WORD Save R2 ; 0862 
on eae Re ae : 
éE 04 BC 98 A MOV 7B acfrstr FAODESC ; 0878 
04 AE 04 es : if ADDL é P CTRSTR, FAODESC+4 : 19 
06 A if A2 9E 00018 MOVAB BUF, DESC+4 ; 0881 
AC 9F 0001 PUSHAB ARGS ; 0883 
53 DD PUSHL RE ; 
dD PUSHL R 5 
OC AE OF PUSHAB FAODESC : 
000000006 98 04 FB 7 CALLS #4, SYSSFAOL : 
62 3 ; MOVAB DESC, RO ; 08s 
RET ; 0886 


; Routine Size: 50 bytes, Routine Base: SCODE$ + 0870 


5 
CHECKSUM_IMAGE Checksum the contents of a file 18- 1984 02:17: AX-1 - -0- 
vos Output checksum to output file 1 =3007 1382 HEE fOTiL 2°bre caecksun.b3 31 Page 433 


7 1 &sbttl ‘Output checksum to output file’ 
ROUTINE cksm output (desc) = 
BEGIN 


es 


Write record to output file 


P 
desc : REF SBBLOCK; 


LOCAL 
638 status; 
9 orab(rab$w_rsz) = .desc(dsc$w_length); 'Set length of Line 
900 orablrab$l_rbfj = eet iecharnetiae? la ! and it's address 
status = $PUT(RAB=orab); ‘Write the Line 
IF NOT .status 'Report any error 


THEN SIGNAL (cksm$_writeerr,1,outfiledesc, 
"status,.orabLrab$t_stvi) ; 


MEW 


Sete Se Se Ge Se Se Ge Se Se Se Se Se Se Se Se Sete eeeee 

er tt ed ed 

VFUN OOOO US WOO 
1009 09 G9 CO CO CD CD CD CD OD OD 
oonovovnovowno 
LEEZ 


S333333 


RETURN .status 
END; 


-EXTRN SYSS$PUT 
000¢ 00000 CKSM_OUTPUT: 
WORD 


: Save R2,R3 ; 0888 
a a a | on99 
63 60 BO 00008 MOVW (RO), ORAB+34 : 
wikia bE OAS. OOF 00018 ROVE. 5 S(RO). ORABSGO : Soot 
— s Bob gue GAAS a. Susy : 
36 E8 000 9 LBS STATUS, 1$ + 0902 
EA A3 DD 000 PUSHL ORAB+12 + 0904 
52 DD 000 é SHL STATUS : 
4E ai oF i : PUSHAB TFILEDESC : 0903 
00031002 BF ODD 000 p PUSHL #200914 : 
000000006 09 5 FB 00 CALLS #5, LIBSSIGNAL : 
0 2 b 003A 1$ MOVL STATUS, RO : 0906 
4 00030 RET : 0907 


3; Routine Size: 62 bytes, Routine Base: S$CODE$ + O08A2 
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o 
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o 
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Kk 5 
voi-bb0"- reg h 4 t — pepsateathed ite: eSepm19be 19:25:19 EONTLSZPSReScHecksom.099,1 Page 48s 


33 1 Xsbttl ‘Get file n 


233 = 


1 GLOBAL ROUTINE Kp (fab) = 
BEGIN 


; re 91 ‘+ 

; tg 318 FUNCTIONAL DESCRIPTION: 

; te a This routine returns a string descriptor for a file. 

: 91 i Inputs: 

: § 319 : es 

: rt 319 fab Address of the fab 

; 20 3 ‘ Outputs: 

; B26 34 § Routine value is address of string descriptor for file name 

3; 6854 0924 aed 

; 855 0925 

3 28 09 § MAP 

; «85 09 fab : REF SBBLOCK; 

; 858 0928 

; $23 0929 BIND 

3 oY 03 ? nam = .fab Cfab$l_nam] : S$BBLOCK; 

; Beg 9 é OWN 

; oer a ? filedesc : SBBLOCKCdsc$c_s_bin]; 

: 865 0935 IF (filedesc Cgecty ztength) = .nam Cnam$b tet NEQ 0 !If resultant name present 
3 £06 baEs THEN filedesc Cdsc$a_pointer] = .nam Cnam$l_r 

; 86 09 ELSE IF (filedesc bgs¢$u_ length] = .nam [naai$b rest) NEQ 0 !If expanded name present 
: He; b3a6 yy becin dsc$a_pointer] = .nam Cnam$T_esa] 

: 870 0940 filedesc bdscéu. Length] = .fab Cfab$b_fns); 'Use filename string 
3; 871 0941 filedesc Cdsc$a_pointer] = .fab Cfab$T_ fnad; ! if all else fails 
; gre 094 END; 

3 14 094 

3; 874 0944 RETURN filedesc 

; 875 0945 END; 'Of getfilename 


-PSECT SOWNS,NOEXE ,2 


0016C FILEDESC: : 
-BLKB 8 


-PSECT S$CODES,NOWRT,2 


0004 000 .ENTRY GETFILENAME, Save R2 : 0909 
52 0000' cF 9€ 0000 MOV FILEDESC, Re ; 
31 4 aC D MOVL FAB, RI > 0930 
9 : A p MOVL 40(R1), RO ; 
é AQ MOVZBW (RO), FILEDESC > 0935 
07 1 1 BEQL $ : 
04 A2 04 Ad D 1 MOVL  4(RO), FILEDESC+4 > 0936 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CHECKSUM/OBJ=OBJ$: CHECKSUM MSRC$:CHECKSUM/UPDATE=(ENHS: CHECKSUM) 


: 138°? 
Lexenes/CPUMin: 2474 


tee OG:12:3)  YAR-NL BLigg=32 v4 0-743 | 


CH Ck IMAGE Checksum the contents of a file 
Vv Get file name 
16 11 1A 
62 08 4 ; 1$: 
04 A2 oc OA 
ae Be ah 88 og 
04 83 3 Al 00 
5 62 9E 3$: 
04 
Routine Size: 54 bytes, Routine Base: S$CODES + 08E0 
876 i 
877 94 
878 948 d EL UDOM 
PSECT SUMMARY 
Name Bytes Attributes 
$ 372 NOVEC, WRT, RD ,NOEXE,NOSHR, 
SGLOBALS 16 NOVEC, WRT, RD * NOEXE ,NOSHR, 
SCODES 2326 NOVEC,NOWRT, RD, XE,NOSHR, 
SPLITS 116 NOVEC.NOWRT, RD .NOEXE,NOSHR, 
Library Statistics 
auccsses § yabols ocooesee 
File Total Loaded Percent 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 164 0 
COMMAND QUALIFIERS 
Size: 232 37 + 504 data bytes 
Run Time: 
Elapsed Time: 


Rovzeu Hr FILEDESC 
ifr FILEDESC+4 
Rovzew Oe FILEDESC 


44(R1 geht aavenees 
ROvAe FILED 


~-EXTRN LIBSSIGNAL, LIBSSTOP 


LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 

1000 00:01.9 


ma 5 
- - . . = - - i) | 
CHF CESUA. IMAGE ge rs ese Sentemes of a file 16-Sep-1984 02:17:31 VAX-11 Bliss-32 V4.0-742 Page 38 


; Compilation Complete 


